home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMDLG7
/
COMONDLG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-12-10
|
3KB
|
138 lines
{µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
{ \\\ }
{ -(j)- }
{ /juanca }
{ ~ }
{ ⌐ ACASA 1989-1992, All rights reserved }
{µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
{ tCommonDlg object, descendand of tDialog, base to OWL objects that shell Common Dialogs }
UNIT COMONDLG;
{$C MOVEABLE DEMANDLOAD DISCARDABLE}
INTERFACE
USES
WINTYPES,
OBJECTS,
OWINDOWS,
ODIALOGS,
COMMDLG;
CONST
cn_MaxCString = 255;
TYPE
tCString = array[0..cn_MaxCString] of Char;
pCommonDlg = ^tCommonDlg;
tCommonDlg = OBJECT ( tDialog )
CONSTRUCTOR
init(iparent:PWindowsObject; name :PChar);
DESTRUCTOR
done;
virtual;
PROCEDURE
ok(var msg :TMessage);
virtual
id_First + id_Ok;
PROCEDURE
cancel(var msg :TMessage);
virtual
id_First + id_Cancel;
FUNCTION
create :Boolean;
virtual;
FUNCTION
execute:Integer;
virtual;
FUNCTION
dlgTitle :PChar;
virtual;
END;
{****************************************************************}
IMPLEMENTATION
USES
WINPROCS;
CONSTRUCTOR
tCommonDlg.
{}
init(iparent:PWindowsObject; name :PChar);
begin
inherited init(iparent, name);
disableTransfer;
end;
DESTRUCTOR
tCommonDlg.
{}
done;
begin
inherited done
end;
PROCEDURE
tCommonDlg.
{}
ok(var msg :TMessage);
begin
msg.result := Word(not canClose)
end;
PROCEDURE
tCommonDlg.
{}
cancel(var msg :TMessage);
begin
msg.result := 0
end;
FUNCTION
tCommonDlg.
{}
create :Boolean;
begin
abstract
end;
FUNCTION
tCommonDlg.
{}
execute:Integer;
var
result :Integer;
begin
result := commDlgExtendedError;
if result = 0
then
execute := id_Ok
else
execute := -result
end;
FUNCTION
tCommonDlg.
{}
dlgTitle :PChar;
begin
{ override this to give the dialog a title different from default}
dlgTitle := nil
end;
END.